home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / PlugIn / SR / 00032_ScrBtnHScrollNext.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  725 b   |  35 lines
  1. on beginSprite me
  2.   set mySprite to the spriteNum of me
  3.   DrawControlHNextLog(mySprite)
  4. end
  5.  
  6. on mouseDown me
  7.   global gCurrLog, gTotLog
  8.   set mySprite to the spriteNum of me
  9.   set myBtnUp to the name of member the member of sprite mySprite
  10.   if char 4 to 5 of myBtnUp = "Of" then
  11.     exit
  12.   end if
  13.   set the member of sprite mySprite to BtnDw(myBtnUp)
  14.   updateStage()
  15.   if the optionDown then
  16.     LastH()
  17.   else
  18.     NextH()
  19.   end if
  20.   repeat with i = 1 to 4000
  21.     if the mouseUp then
  22.       exit repeat
  23.     end if
  24.   end repeat
  25.   repeat while the stillDown
  26.     if the optionDown then
  27.       LastH()
  28.       next repeat
  29.     end if
  30.     NextH()
  31.   end repeat
  32.   set the member of sprite mySprite to BtnUp(myBtnUp)
  33.   updateStage()
  34. end
  35.